home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / pack / xpk_Source.lha / xpk_Source / libraries / NONE / xpkNONE.a < prev   
Text File  |  1998-02-08  |  1KB  |  78 lines
  1.     INCLUDE    AINCLUDE:IncDirs.i *sets all includedirs, needed for my ASM
  2.     INCLUDE    NONE/xpkLibNONE.i
  3.     include    xpk/xpk.i
  4.     include    xpk/xpksub.i
  5.  
  6. _XpksPackerInfo:
  7.     LEA    Info(PC),A0
  8.     MOVE.L    A0,D0
  9.     RTS
  10.  
  11. _XpksPackChunk
  12.     MOVEQ    #XPKERR_EXPANSION,D0
  13.     RTS    
  14.  
  15. _XpksUnpackChunk
  16.     MOVE.L    A6,-(A7)
  17.     MOVEA.L    xsp_OutBuf(A0),A1
  18.     MOVE.L    xsp_InLen(A0),D0
  19.     MOVE.L    D0,xsp_OutLen(A0)
  20.     MOVEA.L    (A0),A0
  21.     MOVEA.L    4.W,A6
  22.     JSR    _LVOCopyMem(A6)
  23.     MOVE.L    (A7)+,A6
  24.     MOVEQ    #0,D0
  25.     RTS    
  26.  
  27. Info
  28.     dc.w    1
  29.     dc.w    VERSION
  30.     dc.w    0
  31.     dc.w    0
  32.     dc.l    Name
  33.     dc.l    LongName
  34.     dc.l    Description
  35.     dc.l    'NONE'
  36.     dc.l    XPKIF_PK_CHUNK|XPKIF_UP_CHUNK
  37.     dc.l    32000 ;max
  38.     dc.l    20    ;min
  39.     dc.l    32000 ;def
  40.     dc.l    PackMsg
  41.     dc.l    UnpackMsg
  42.     dc.l    PackedMsg
  43.     dc.l    UnpackedMsg
  44.     dc.w    50
  45.     dc.w    0
  46.     dc.l    Mode1
  47.     dc.l    0,0,0,0,0,0
  48.  
  49. Name:
  50.     dc.b    'NONE',0
  51. LongName:
  52.     dc.b    'NoPacker',0
  53. Description:
  54.     dc.b    'A dummy library that does no compression.',0
  55. UnpackMsg:
  56.     dc.b    'Reading',0
  57. PackMsg:
  58.     dc.b    'Writing',0
  59. UnpackedMsg:
  60.     dc.b    'Read',0
  61. PackedMsg:
  62.     dc.b    'Wrote',0
  63.  
  64.     EVEN
  65.  
  66. Mode1:
  67.     dc.l    0
  68.     dc.l    100
  69.     dc.l    XPKMF_A3000SPEED
  70.     dc.l    0
  71.     dc.l    0
  72.     dc.l    1918
  73.     dc.l    2477
  74.     dc.w    0
  75.     dc.w    0
  76.     dc.b    'normal',0,0,0,0
  77.     END
  78.